#!/usr/bin/perl -w
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche");
print "affichage global :\n";
print @liste1,"\n";
print "@liste1\n";
$taille_liste = $#liste1 + 1;
print "taille de \@liste1 = $taille_liste \n";
print "son dernier élément est : $liste1[$#liste1]\n";

print "affichage de \@liste1, élément par élément :\n";
print "\navec une boucle foreach :\n";
foreach $mot (@liste1)
{
	print "$mot\n";
}
